source fct_source.tcl

set last_x 0
set last_y 0



proc Maj_vitesse_joueur {} {
    global last_x
    global last_y
    global table_joueurs
    set joueur_principal [lindex $table_joueurs 0 0]
    set px [get_joueur_posX $joueur_principal]
    set py [get_joueur_posY $joueur_principal]
    set v [expr atan2([expr $py    - $last_y],[expr $px - $last_x])]
    set_joueur_vitesse joueur_principal $v
    set table_joueurs [list [lreplace [lindex $table_joueurs 0] 0 0 $joueur_principal]]
    set last_x $px
    set last_y $py
}

set prescale_creation_ast 0

proc boucle {} {
    global prescale_creation_ast
    
    #Maj_vitesse_joueur
    Maj_Position_Joueur
    
    algo_gestion_ast
    
    if {$prescale_creation_ast == 10} {
        algo_creation_ast
        set prescale_creation_ast 0
    }
    incr prescale_creation_ast
    
    MajEcran
    
    after 100 boucle
}

boucle
